home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Science⁄Math / Clustal V Folder / gcgcheck.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-08  |  299 b   |  17 lines  |  [TEXT/MSWD]
  1. #include <ctype.h>   /* because of toupper() */
  2.  
  3. int SeqGCGCheckSum(char *, int);
  4.  
  5.  
  6. int SeqGCGCheckSum(char *seq, int len)
  7. {
  8.     int  i;
  9.         long check;
  10.         
  11.         for( i=0, check=0; i< len; i++,seq++)
  12.                 check += ((i % 57)+1) * toupper(*seq);
  13.  
  14.         return(check % 10000);
  15. }
  16.  
  17.